(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     47032,       1415]
NotebookOptionsPosition[     40709,       1208]
NotebookOutlinePosition[     44490,       1320]
CellTagsIndexPosition[     44374,       1314]
WindowTitle->PaVeReduce
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FRH\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/FRH"], "\<\"PaVeOrder\"\>":>
       Documentation`HelpLookup["paclet:FeynCalc/ref/PaVeOrder"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/PaVeReduce\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/PaVeReduce"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                
                "http://reference.wolfram.com/language/FeynCalc/ref/\
PaVeReduce.html"], StandardForm]], "Input", TextClipboardType -> 
              "PlainText"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$208660], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/PaVeReduce", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["PaVeReduce", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"PaVeReduce", "[", "expr", "]"}]], "InlineFormula"],
     " \[LineSeparator]reduces all Passarino-Veltman integrals (i.e. all \
PaVe's) in expr down to scalar A0, B0, C0 and D0."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1846006980],

Cell["", "SectionHeaderSpacer"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "PaVeReduce", "]"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[26]:=",
 CellID->1685498711],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"A0ToB0", "\[Rule]", "False"}], ",", 
    RowBox[{"BReduce", "\[Rule]", "False"}], ",", 
    RowBox[{"Collecting", "\[Rule]", "True"}], ",", 
    RowBox[{"Dimension", "\[Rule]", "True"}], ",", 
    RowBox[{"FeynCalcExternal", "\[Rule]", "True"}], ",", 
    RowBox[{"FCVerbose", "\[Rule]", "False"}], ",", 
    RowBox[{"Factoring", "\[Rule]", "Factor2"}], ",", 
    RowBox[{"IsolateNames", "\[Rule]", "False"}], ",", 
    RowBox[{"Mandelstam", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"PaVeAutoReduce", "\[Rule]", "False"}], ",", 
    RowBox[{"PaVeOrderList", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"WriteOutPaVe", "\[Rule]", "False"}], ",", 
    RowBox[{"MaxIterations", "\[Rule]", "\[Infinity]"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{456, 73},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"PaVeReduce",
 CellLabel->"Out[26]=",
 CellID->458544387]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->620988512],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->46054929],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PaVeReduce", "[", 
  RowBox[{
   RowBox[{"PaVe", "[", 
    RowBox[{"1", ",", "2", ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", 
       RowBox[{"m", "^", "2"}], ",", 
       RowBox[{"m", "^", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"m", "^", "2"}], ",", 
       RowBox[{"m", "^", "2"}], ",", 
       RowBox[{"M", "^", "2"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"IsolateNames", "\[Rule]", "FF"}]}], "]"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[1]:=",
 CellID->311139632],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"FF", "(", "45", ")"}],
   HoldForm], TraditionalForm]], "Output",
 ImageSize->{48, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"PaVeReduce",
 CellLabel->"Out[1]=",
 CellID->516283693]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FRH", "[", "%", "]"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[2]:=",
 CellID->927282004],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "D"}], "-", "3"}], ")"}], " ", 
        SuperscriptBox["M", "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"D", "-", "2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["M", "2"], " ", "s"}], 
       RowBox[{"2", " ", 
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["m", "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]], "+", 
      FractionBox["s", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]]}], ")"}], " ", 
    FormBox[
     RowBox[{
      SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
      RowBox[{
       SuperscriptBox["m", "2"], ",", 
       SuperscriptBox["m", "2"], ",", 
       SuperscriptBox["M", "2"]}], ")"}],
     TraditionalForm]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"D", "-", "1"}], ")"}], " ", 
         SuperscriptBox["M", "2"]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"D", "-", "2"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]]}], "+", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["m", "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"D", "-", "2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]], "-", 
      FractionBox["s", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"D", "-", "2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]]}], ")"}], 
    " ", 
    FormBox[
     RowBox[{
      SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
      RowBox[{"s", ",", 
       SuperscriptBox["m", "2"], ",", 
       SuperscriptBox["m", "2"]}], ")"}],
     TraditionalForm]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"D", "-", "1"}], ")"}], " ", 
         SuperscriptBox["M", "4"]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"D", "-", "2"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]]}], "-", 
      FractionBox[
       RowBox[{"D", " ", 
        SuperscriptBox["M", "2"], " ", "s"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"D", "-", "2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{"4", " ", "D", " ", 
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox["M", "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"D", "-", "2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["m", "2"]}], "-", "s"}], ")"}], "2"]}]]}], ")"}], 
    " ", 
    FormBox[
     RowBox[{
      SubscriptBox["\<\"C\"\>", "\<\"0\"\>"], "(", 
      RowBox[{
       SuperscriptBox["m", "2"], ",", 
       SuperscriptBox["m", "2"], ",", "s", ",", 
       SuperscriptBox["m", "2"], ",", 
       SuperscriptBox["M", "2"], ",", 
       SuperscriptBox["m", "2"]}], ")"}],
     TraditionalForm]}], "-", 
   FractionBox[
    FormBox[
     RowBox[{
      SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", 
      SuperscriptBox["M", "2"], ")"}],
     TraditionalForm], 
    RowBox[{"2", " ", 
     SuperscriptBox["m", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}]], "+", 
   FractionBox[
    FormBox[
     RowBox[{
      SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", 
      SuperscriptBox["m", "2"], ")"}],
     TraditionalForm], 
    RowBox[{"2", " ", 
     SuperscriptBox["m", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["m", "2"]}], "-", "s"}], ")"}]}]]}], 
  TraditionalForm]], "Output",
 ImageSize->{498, 261},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"PaVeReduce",
 CellLabel->"Out[2]=",
 CellID->1592936160]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PaVeReduce", "[", 
  RowBox[{
   RowBox[{"PaVe", "[", 
    RowBox[{"2", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"SmallVariable", "[", "me2", "]"}], ",", "mw2", ",", "t"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"SmallVariable", "[", "me2", "]"}], ",", "0", ",", "mw2"}], 
      "}"}]}], "]"}], ",", 
   RowBox[{"WriteOutPaVe", "\[Rule]", "\"\<p\>\""}]}], "]"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[3]:=",
 CellID->1031771651],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    FormBox[
     RowBox[{
      SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
      RowBox[{"mw2", ",", "0", ",", "mw2"}], ")"}],
     TraditionalForm], 
    RowBox[{"mw2", "-", "t"}]], "-", 
   FractionBox[
    FormBox[
     RowBox[{
      SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
      RowBox[{"t", ",", "mw2", ",", "me2"}], ")"}],
     TraditionalForm], 
    RowBox[{"mw2", "-", "t"}]]}], TraditionalForm]], "Output",
 ImageSize->{254, 34},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"PaVeReduce",
 CellLabel->"Out[3]=",
 CellID->1972744154]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"ReadList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"$OperatingSystem", "===", "\"\<MacOS\>\""}], ",", "\"\<:\>\"",
        ",", "\"\<\>\""}], "]"}], "<>", 
     "\"\<pPaVe2Csmame2mw2tCsmame20mw2.s\>\""}], ",", "String"}], "]"}], 
  "]"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[4]:=",
 CellID->2052937684],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {"\<\"( PaVe[0, {mw2}, {0, mw2}]/(mw2 - t) - PaVe[0, {t}, {mw2, \
SmallVariable[me2]}]/\"\>"},
      {"\<\"  (mw2 - t)\"\>"},
      {"\<\"  ) \"\>"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 ImageSize->{533, 49},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"PaVeReduce",
 CellLabel->"Out[4]//TableForm=",
 CellID->1778677368]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DeleteFile", "/@", 
   RowBox[{
   "FileNames", "[", "\"\<pPaVe2Csmame2mw2tCsmame20mw2.s\>\"", "]"}]}], 
  ";"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[5]:=",
 CellID->1002068234],

Cell[BoxData[
 RowBox[{
  RowBox[{"se", "=", 
   RowBox[{"SmallVariable", "[", "ME2", "]"}]}], ";"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[6]:=",
 CellID->175960789],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d122", "=", 
  RowBox[{
   RowBox[{"PaVeReduce", "[", 
    RowBox[{
     RowBox[{"PaVe", "[", 
      RowBox[{"1", ",", "2", ",", "2", ",", 
       RowBox[{"{", 
        RowBox[{"se", ",", "MW2", ",", "MW2", ",", "se", ",", "S", ",", "T"}],
         "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "se", ",", "0", ",", "se"}], "}"}]}], "]"}], ",", 
     RowBox[{"Mandelstam", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"S", ",", "T", ",", "U", ",", 
        RowBox[{"2", " ", "MW2"}]}], "}"}]}], ",", 
     RowBox[{"IsolateNames", "\[Rule]", "F"}]}], "]"}], "//", 
   "FRH"}]}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[7]:=",
 CellID->1868254708],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"D", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "-", "S"}], ")"}], " ", 
      SuperscriptBox["T", "2"], " ", 
      FormBox[
       RowBox[{
        SubscriptBox["\<\"D\"\>", "\<\"0\"\>"], "(", 
        RowBox[{
        "ME2", ",", "MW2", ",", "MW2", ",", "ME2", ",", "S", ",", "T", ",", 
         "0", ",", "ME2", ",", "0", ",", "ME2"}], ")"}],
       TraditionalForm], " ", 
      SuperscriptBox["S", "3"]}], 
     RowBox[{"8", " ", 
      RowBox[{"(", 
       RowBox[{"3", "-", "D"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["MW2", "2"], "-", 
         RowBox[{"S", " ", "U"}]}], ")"}], "3"]}]]}], "-", 
   FractionBox[
    RowBox[{"D", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"MW2", "-", "S"}], ")"}], "2"], " ", "T", " ", 
     FormBox[
      RowBox[{
       SubscriptBox["\<\"C\"\>", "\<\"0\"\>"], "(", 
       RowBox[{"MW2", ",", "S", ",", "ME2", ",", "ME2", ",", "0", ",", "0"}], 
       ")"}],
      TraditionalForm], " ", 
     SuperscriptBox["S", "2"]}], 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{"3", "-", "D"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["MW2", "2"], "-", 
        RowBox[{"S", " ", "U"}]}], ")"}], "3"]}]], "+", 
   FractionBox[
    RowBox[{"D", " ", 
     RowBox[{"(", 
      RowBox[{"MW2", "-", "S"}], ")"}], " ", 
     SuperscriptBox["T", "2"], " ", 
     FormBox[
      RowBox[{
       SubscriptBox["\<\"C\"\>", "\<\"0\"\>"], "(", 
       RowBox[{
       "T", ",", "ME2", ",", "ME2", ",", "ME2", ",", "ME2", ",", "0"}], ")"}],
      
      TraditionalForm], " ", 
     SuperscriptBox["S", "2"]}], 
    RowBox[{"8", " ", 
     RowBox[{"(", 
      RowBox[{"3", "-", "D"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["MW2", "2"], "-", 
        RowBox[{"S", " ", "U"}]}], ")"}], "3"]}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["MW2", "2"]}], "-", 
       RowBox[{"D", " ", "S", " ", "T"}], "-", 
       RowBox[{"2", " ", "S", " ", "U"}]}], ")"}], " ", 
     FormBox[
      RowBox[{
       SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
       RowBox[{"S", ",", "0", ",", "0"}], ")"}],
      TraditionalForm], " ", "S"}], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"2", "-", "D"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"MW2", "-", "S"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["MW2", "2"], "-", 
        RowBox[{"S", " ", "U"}]}], ")"}], "2"]}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["MW2", "2"], "+", 
       RowBox[{"2", " ", "S", " ", "MW2"}], "+", 
       RowBox[{"S", " ", "U"}]}], ")"}], " ", 
     FormBox[
      RowBox[{
       SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", "ME2", ")"}],
      TraditionalForm]}], 
    RowBox[{"2", " ", "MW2", " ", 
     RowBox[{"(", 
      RowBox[{"MW2", "-", "S"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "MW2"}], "-", "T"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["MW2", "2"], "-", 
       RowBox[{"S", " ", "U"}]}], ")"}]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "D", " ", 
         SuperscriptBox["MW2", "5"]}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["MW2", "5"]}], "-", 
        RowBox[{"3", " ", "D", " ", "S", " ", 
         SuperscriptBox["MW2", "4"]}], "+", 
        RowBox[{"2", " ", "S", " ", 
         SuperscriptBox["MW2", "4"]}], "-", 
        RowBox[{"3", " ", "D", " ", "U", " ", 
         SuperscriptBox["MW2", "4"]}], "+", 
        RowBox[{"10", " ", "U", " ", 
         SuperscriptBox["MW2", "4"]}], "-", 
        RowBox[{"8", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"4", " ", "D", " ", "S", " ", "U", " ", 
         SuperscriptBox["MW2", "3"]}], "-", 
        RowBox[{"16", " ", "S", " ", "U", " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"2", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["MW2", "2"]}], "+", 
        RowBox[{"4", " ", "D", " ", "S", " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"8", " ", "S", " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"2", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", "U", " ", 
         SuperscriptBox["MW2", "2"]}], "+", 
        RowBox[{"2", " ", "D", " ", 
         SuperscriptBox["S", "4"], " ", "MW2"}], "+", 
        RowBox[{"4", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", "U", " ", "MW2"}], "+", 
        RowBox[{"D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["U", "3"]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["U", "3"]}], "+", 
        RowBox[{"D", " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["U", "2"]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["U", "2"]}]}], ")"}], " ", 
      FormBox[
       RowBox[{
        SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
        RowBox[{"MW2", ",", "0", ",", "ME2"}], ")"}],
       TraditionalForm]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", "D"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "-", "S"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "MW2"}], "-", "T"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["MW2", "2"], "-", 
         RowBox[{"S", " ", "U"}]}], ")"}], "2"]}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"20", " ", 
         SuperscriptBox["MW2", "4"]}], "-", 
        RowBox[{"2", " ", "D", " ", "S", " ", 
         SuperscriptBox["MW2", "3"]}], "-", 
        RowBox[{"12", " ", "S", " ", 
         SuperscriptBox["MW2", "3"]}], "-", 
        RowBox[{"6", " ", "T", " ", 
         SuperscriptBox["MW2", "3"]}], "-", 
        RowBox[{"2", " ", "D", " ", "U", " ", 
         SuperscriptBox["MW2", "3"]}], "-", 
        RowBox[{"4", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["MW2", "2"]}], "+", 
        RowBox[{"2", " ", "S", " ", "T", " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"20", " ", "S", " ", "U", " ", 
         SuperscriptBox["MW2", "2"]}], "+", 
        RowBox[{"D", " ", 
         SuperscriptBox["S", "3"], " ", "MW2"}], "+", 
        RowBox[{"3", " ", "D", " ", "S", " ", 
         SuperscriptBox["U", "2"], " ", "MW2"}], "+", 
        RowBox[{"12", " ", 
         SuperscriptBox["S", "2"], " ", "U", " ", "MW2"}], "+", 
        RowBox[{"6", " ", "S", " ", "T", " ", "U", " ", "MW2"}], "+", 
        RowBox[{"D", " ", 
         SuperscriptBox["S", "4"]}], "+", 
        RowBox[{"D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["U", "2"]}], "+", 
        RowBox[{"2", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", "U"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["S", "2"], " ", "T", " ", "U"}]}], ")"}], " ", 
      FormBox[
       RowBox[{
        SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
        RowBox[{"T", ",", "ME2", ",", "ME2"}], ")"}],
       TraditionalForm]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", "D"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "MW2"}], "-", "T"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["MW2", "2"], "-", 
         RowBox[{"S", " ", "U"}]}], ")"}], "2"]}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"128", " ", "D", " ", 
         SuperscriptBox["MW2", "7"]}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["MW2", "7"]}], "-", 
        RowBox[{"608", " ", "D", " ", "S", " ", 
         SuperscriptBox["MW2", "6"]}], "-", 
        RowBox[{"128", " ", "D", " ", "T", " ", 
         SuperscriptBox["MW2", "6"]}], "-", 
        RowBox[{"144", " ", "U", " ", 
         SuperscriptBox["MW2", "6"]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["MW2", "5"]}], "+", 
        RowBox[{"1152", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["MW2", "5"]}], "+", 
        RowBox[{"28", " ", "D", " ", 
         SuperscriptBox["T", "2"], " ", 
         SuperscriptBox["MW2", "5"]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "5"]}], "+", 
        RowBox[{"888", " ", "D", " ", "S", " ", "T", " ", 
         SuperscriptBox["MW2", "5"]}], "-", 
        RowBox[{"8", " ", 
         SuperscriptBox["D", "2"], " ", "S", " ", "U", " ", 
         SuperscriptBox["MW2", "5"]}], "-", 
        RowBox[{"96", " ", "S", " ", "U", " ", 
         SuperscriptBox["MW2", "5"]}], "+", 
        RowBox[{"48", " ", "T", " ", "U", " ", 
         SuperscriptBox["MW2", "5"]}], "-", 
        RowBox[{"16", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["MW2", "4"]}], "-", 
        RowBox[{"1088", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["MW2", "4"]}], "-", 
        RowBox[{"420", " ", "D", " ", "S", " ", 
         SuperscriptBox["T", "2"], " ", 
         SuperscriptBox["MW2", "4"]}], "+", 
        RowBox[{"288", " ", "S", " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "4"]}], "-", 
        RowBox[{"1840", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", "T", " ", 
         SuperscriptBox["MW2", "4"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "4"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"512", " ", "D", " ", 
         SuperscriptBox["S", "4"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"64", " ", "D", " ", "S", " ", 
         SuperscriptBox["T", "3"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"10", " ", 
         SuperscriptBox["D", "2"], " ", "S", " ", 
         SuperscriptBox["U", "3"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"1116", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["T", "2"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"18", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "3"]}], "-", 
        RowBox[{"96", " ", "S", " ", "T", " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"1568", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", "T", " ", 
         SuperscriptBox["MW2", "3"]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "3"], " ", "U", " ", 
         SuperscriptBox["MW2", "3"]}], "+", 
        RowBox[{"8", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "5"], " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"96", " ", "D", " ", 
         SuperscriptBox["S", "5"], " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"324", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["T", "3"], " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"144", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["U", "3"], " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"716", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["T", "2"], " ", 
         SuperscriptBox["MW2", "2"]}], "+", 
        RowBox[{"8", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["U", "2"], " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{"528", " ", "D", " ", 
         SuperscriptBox["S", "4"], " ", "T", " ", 
         SuperscriptBox["MW2", "2"]}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "4"], " ", "U", " ", 
         SuperscriptBox["MW2", "2"]}], "-", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "6"], " ", "MW2"}], "+", 
        RowBox[{"38", " ", "D", " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["T", "4"], " ", "MW2"}], "-", 
        RowBox[{"7", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "2"], " ", 
         SuperscriptBox["U", "4"], " ", "MW2"}], "+", 
        RowBox[{"100", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["T", "3"], " ", "MW2"}], "-", 
        RowBox[{"6", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["U", "3"], " ", "MW2"}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["S", "2"], " ", "T", " ", 
         SuperscriptBox["U", "3"], " ", "MW2"}], "+", 
        RowBox[{"120", " ", "D", " ", 
         SuperscriptBox["S", "4"], " ", 
         SuperscriptBox["T", "2"], " ", "MW2"}], "+", 
        RowBox[{"40", " ", "D", " ", 
         SuperscriptBox["S", "5"], " ", "T", " ", "MW2"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "5"], " ", "U", " ", "MW2"}], "-", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "7"]}], "+", 
        RowBox[{"2", " ", "D", " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["T", "4"]}], "-", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "3"], " ", 
         SuperscriptBox["U", "4"]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "4"], " ", 
         SuperscriptBox["U", "3"]}], "-", 
        RowBox[{"6", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "5"], " ", 
         SuperscriptBox["U", "2"]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["S", "6"], " ", "U"}]}], ")"}], " ", 
      FormBox[
       RowBox[{
        SubscriptBox["\<\"C\"\>", "\<\"0\"\>"], "(", 
        RowBox[{
        "MW2", ",", "MW2", ",", "T", ",", "ME2", ",", "0", ",", "ME2"}], ")"}],
       TraditionalForm]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"8", " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", "D"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"3", "-", "D"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "MW2"}], "-", "T"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["MW2", "2"], "-", 
         RowBox[{"S", " ", "U"}]}], ")"}], "3"]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 ImageSize->{579, 824},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"PaVeReduce",
 CellLabel->"Out[7]=",
 CellID->775966781]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Write2", "[", 
   RowBox[{"\"\<fctd122.for\>\"", ",", 
    RowBox[{"d122res", "==", "d122"}], ",", 
    RowBox[{"FormatType", "\[Rule]", "FortranForm"}]}], "]"}], ";"}]], "Input",\

 CellTags->"PaVeReduce",
 CellLabel->"In[8]:=",
 CellID->1848976065],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"ReadList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"$OperatingSystem", "===", "\"\<MacOS\>\""}], ",", "\"\<:\>\"",
        ",", "\"\<\>\""}], "]"}], "<>", "\"\<fctd122.for\>\""}], ",", 
    "String"}], "]"}], "]"}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[9]:=",
 CellID->193852328],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {"\<\"        d122res = -((5.D-1*(MW2**2 + S*U + MW2*S*2D0)*\"\>"},
      {"\<\"     &       PaVe(0D0,List(),List(ME2)))/\"\>"},
      {"\<\"     &     (MW2*(MW2 - S*1D0)*(MW2**2 - S*U*1D0)*\"\>"},
      {"\<\"     &       (-(T*1D0) + MW2*4D0))) + \"\>"},
      {"\<\"     &  (5.D-1*(D*S**3*U**2 + D*S**2*U**3 - D*MW2**5*2D0 + \
\"\>"},
      {"\<\"     &       MW2**4*S*2D0 + D*MW2**2*S**3*2D0 + \"\>"},
      {"\<\"     &       D*MW2*S**4*2D0 - D*MW2**2*S**2*U*2D0 - \"\>"},
      {"\<\"     &       S**3*U**2*2D0 - S**2*U**3*2D0 - D*MW2**4*S*3D0 - \
\"\>"},
      {"\<\"     &       D*MW2**4*U*3D0 + D*MW2**3*S*U*4D0 + \"\>"},
      {"\<\"     &       D*MW2*S**3*U*4D0 + D*MW2**2*S*U**2*4D0 - \"\>"},
      {"\<\"     &       D*MW2**3*S**2*8D0 - MW2**2*S*U**2*8D0 + \"\>"},
      {"\<\"     &       MW2**4*U*1.D1 + MW2**5*1.6D1 - \
MW2**3*S*U*1.6D1)*\"\>"},
      {"\<\"     &     PaVe(0D0,List(MW2),List(0D0,ME2)))/\"\>"},
      {"\<\"     &   ((MW2 - S*1D0)*(MW2**2 - S*U*1D0)**2*\"\>"},
      {"\<\"     &     (-(D*1D0) + 2D0)*(-(T*1D0) + MW2*4D0)**2) - \"\>"},
      {"\<\"     &  (S*5.D-1*(-(D*S*T*1D0) + MW2**2*2D0 - S*U*2D0)*\"\>"},
      {"\<\"     &     PaVe(0D0,List(S),List(0D0,0D0)))/\"\>"},
      {"\<\"     &   ((MW2 - S*1D0)*(MW2**2 - S*U*1D0)**2*\"\>"},
      {"\<\"     &     (-(D*1D0) + 2D0)) - \"\>"},
      {"\<\"     &  (5.D-1*(D*MW2*S**3 + D*S**4 + D*S**2*U**2 - \"\>"},
      {"\<\"     &       D*MW2**3*S*2D0 + MW2**2*S*T*2D0 - \"\>"},
      {"\<\"     &       D*MW2**3*U*2D0 + D*S**3*U*2D0 - S**2*T*U*2D0 + \"\>"},
      {"\<\"     &       D*MW2*S*U**2*3D0 - D*MW2**2*S**2*4D0 - \"\>"},
      {"\<\"     &       MW2**3*T*6D0 + MW2*S*T*U*6D0 - MW2**3*S*1.2D1 + \
\"\>"},
      {"\<\"     &       MW2*S**2*U*1.2D1 + MW2**4*2.D1 - \
MW2**2*S*U*2.D1)\"\>"},
      {"\<\"     &      *PaVe(0D0,List(T),List(ME2,ME2)))/\"\>"},
      {"\<\"     &   ((MW2**2 - S*U*1D0)**2*(-(D*1D0) + 2D0)*\"\>"},
      {"\<\"     &     (-(T*1D0) + MW2*4D0)**2) - \"\>"},
      {"\<\"     &  (1.25D-1*(-(D**2*MW2*S**6*1D0) - D**2*S**7*1D0 - \"\>"},
      {"\<\"     &       D**2*S**3*U**4*1D0 + D*S**3*T**4*2D0 - \"\>"},
      {"\<\"     &       D**2*MW2**3*S**3*U*2D0 - D**2*MW2*S**5*U*2D0 - \"\>"},
      {"\<\"     &       D**2*MW2**5*S**2*4D0 - D**2*S**6*U*4D0 - \"\>"},
      {"\<\"     &       D**2*MW2**5*U**2*4D0 - D**2*S**4*U**3*4D0 + \"\>"},
      {"\<\"     &       D**2*MW2**3*S**4*6D0 - D**2*S**5*U**2*6D0 - \"\>"},
      {"\<\"     &       D**2*MW2*S**3*U**3*6D0 - \"\>"},
      {"\<\"     &       D**2*MW2*S**2*U**4*7D0 + D**2*MW2**2*S**5*8D0 - \
\"\>"},
      {"\<\"     &       D**2*MW2**5*S*U*8D0 + \"\>"},
      {"\<\"     &       D**2*MW2**2*S**3*U**2*8D0 + \"\>"},
      {"\<\"     &       D**2*MW2**3*S*U**3*1.D1 - \"\>"},
      {"\<\"     &       D**2*MW2**4*S**3*1.6D1 + \"\>"},
      {"\<\"     &       D**2*MW2**2*S**4*U*1.6D1 + \"\>"},
      {"\<\"     &       D**2*MW2**3*S**2*U**2*1.8D1 + \"\>"},
      {"\<\"     &       D*MW2**5*T**2*2.8D1 + D*MW2*S**2*T**4*3.8D1 + \
\"\>"},
      {"\<\"     &       D*MW2*S**5*T*4.D1 + MW2**7*4.8D1 + \"\>"},
      {"\<\"     &       MW2**5*T*U*4.8D1 + MW2**3*S**2*U**2*4.8D1 + \"\>"},
      {"\<\"     &       MW2*S**2*T*U**3*4.8D1 + D*MW2**3*S*T**3*6.4D1 - \
\"\>"},
      {"\<\"     &       D*MW2**2*S**5*9.6D1 - MW2**5*S*U*9.6D1 - \"\>"},
      {"\<\"     &       MW2**3*S*T*U**2*9.6D1 + D*MW2*S**3*T**3*1.D2 + \"\>"},
      {"\<\"     &       D*MW2*S**4*T**2*1.2D2 + D*MW2**7*1.28D2 - \"\>"},
      {"\<\"     &       D*MW2**6*T*1.28D2 - MW2**6*U*1.44D2 - \"\>"},
      {"\<\"     &       MW2**2*S**2*U**3*1.44D2 + MW2**4*S*U**2*2.88D2 - \
\"\>"},
      {"\<\"     &       D*MW2**2*S**2*T**3*3.24D2 - \"\>"},
      {"\<\"     &       D*MW2**4*S*T**2*4.2D2 + D*MW2**3*S**4*5.12D2 - \"\>"},
      {"\<\"     &       D*MW2**2*S**4*T*5.28D2 - D*MW2**6*S*6.08D2 - \"\>"},
      {"\<\"     &       D*MW2**2*S**3*T**2*7.16D2 + \"\>"},
      {"\<\"     &       D*MW2**5*S*T*8.88D2 - D*MW2**4*S**3*1.088D3 + \
\"\>"},
      {"\<\"     &       D*MW2**3*S**2*T**2*1.116D3 + \"\>"},
      {"\<\"     &       D*MW2**5*S**2*1.152D3 + \"\>"},
      {"\<\"     &       D*MW2**3*S**3*T*1.568D3 - \
D*MW2**4*S**2*T*1.84D3)\"\>"},
      {"\<\"     &      *PaVe(0D0,List(MW2,MW2,T),List(ME2,0D0,ME2)))/\"\>"},
      {"\<\"     &   ((MW2**2 - S*U*1D0)**3*(-(D*1D0) + 2D0)*\"\>"},
      {"\<\"     &     (-(D*1D0) + 3D0)*(-(T*1D0) + MW2*4D0)**2) - \"\>"},
      {"\<\"     &  (D*S**2*T*2.5D-1*(MW2 - S*1D0)**2*\"\>"},
      {"\<\"     &     PaVe(0D0,List(MW2,S,ME2),List(ME2,0D0,0D0)))/\"\>"},
      {"\<\"     &   ((MW2**2 - S*U*1D0)**3*(-(D*1D0) + 3D0)) + \"\>"},
      {"\<\"     &  (D*S**2*T**2*1.25D-1*(MW2 - S*1D0)*\"\>"},
      {"\<\"     &     PaVe(0D0,List(T,ME2,ME2),List(ME2,ME2,0D0)))/\"\>"},
      {"\<\"     &   ((MW2**2 - S*U*1D0)**3*(-(D*1D0) + 3D0)) - \"\>"},
      {"\<\"     &  (D*S**3*T**2*1.25D-1*(MW2 - S*1D0)*\"\>"},
      {"\<\"     &     PaVe(0D0,List(ME2,MW2,MW2,ME2,S,T),\"\>"},
      {"\<\"     &      List(0D0,ME2,0D0,ME2)))/\"\>"},
      {"\<\"     &   ((MW2**2 - S*U*1D0)**3*(-(D*1D0) + 3D0))\"\>"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 ImageSize->{461, 1280},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"PaVeReduce",
 CellLabel->"Out[9]//TableForm=",
 CellID->2020509582]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "/@", 
    RowBox[{"FileNames", "[", "\"\<fctd122.for\>\"", "]"}]}], ";", 
   RowBox[{"Clear", "[", 
    RowBox[{"d122", ",", "se"}], "]"}], ";"}], " "}]], "Input",
 CellTags->"PaVeReduce",
 CellLabel->"In[10]:=",
 CellID->793776799]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[{
 StyleBox[ButtonBox["FRH",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/FRH",
  ButtonNote->"FRH"],
  FontFamily->"Verdana"],
 ", ",
 StyleBox[ButtonBox["PaVeOrder",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/PaVeOrder",
  ButtonNote->"PaVeOrder"],
  FontFamily->"Verdana"],
 "."
}], "SeeAlso",
 CellID->939950363]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"PaVeReduce",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 9, 30.531811}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "PaVeReduce[expr] reduces all Passarino-Veltman integrals (i.e. all \
PaVe's) in expr down to scalar A0, B0, C0 and D0.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "PaVeReduce", "titlemodifier" -> "", 
    "windowtitle" -> "PaVeReduce", "type" -> "Symbol", "uri" -> 
    "FeynCalc/ref/PaVeReduce"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PaVeReduce"->{
  Cell[5266, 160, 139, 4, 70, "Input",
   CellTags->"PaVeReduce",
   CellID->1685498711],
  Cell[5408, 166, 994, 25, 94, "Output",
   CellTags->"PaVeReduce",
   CellID->458544387],
  Cell[7094, 227, 539, 17, 45, "Input",
   CellTags->"PaVeReduce",
   CellID->311139632],
  Cell[7636, 246, 266, 10, 37, "Output",
   CellTags->"PaVeReduce",
   CellID->516283693],
  Cell[7939, 261, 124, 4, 27, "Input",
   CellTags->"PaVeReduce",
   CellID->927282004],
  Cell[8066, 267, 5286, 178, 282, "Output",
   CellTags->"PaVeReduce",
   CellID->1592936160],
  Cell[13389, 450, 509, 16, 45, "Input",
   CellTags->"PaVeReduce",
   CellID->1031771651],
  Cell[13901, 468, 634, 22, 55, "Output",
   CellTags->"PaVeReduce",
   CellID->1972744154],
  Cell[14572, 495, 416, 13, 45, "Input",
   CellTags->"PaVeReduce",
   CellID->2052937684],
  Cell[14991, 510, 902, 27, 85, "Output",
   CellTags->"PaVeReduce",
   CellID->1778677368],
  Cell[15908, 540, 227, 8, 27, "Input",
   CellTags->"PaVeReduce",
   CellID->1002068234],
  Cell[16138, 550, 179, 6, 27, "Input",
   CellTags->"PaVeReduce",
   CellID->175960789],
  Cell[16342, 560, 696, 20, 45, "Input",
   CellTags->"PaVeReduce",
   CellID->1868254708],
  Cell[17041, 582, 16051, 437, 845, "Output",
   CellTags->"PaVeReduce",
   CellID->775966781],
  Cell[33107, 1022, 285, 9, 27, "Input",
   CellTags->"PaVeReduce",
   CellID->1848976065],
  Cell[33417, 1035, 392, 12, 45, "Input",
   CellTags->"PaVeReduce",
   CellID->193852328],
  Cell[33812, 1049, 5837, 106, 1316, "Output",
   CellTags->"PaVeReduce",
   CellID->2020509582],
  Cell[39664, 1158, 293, 9, 27, "Input",
   CellTags->"PaVeReduce",
   CellID->793776799]},
 "PrimaryExamplesSection"->{
  Cell[6463, 198, 387, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->620988512]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PaVeReduce", 42543, 1252},
 {"PrimaryExamplesSection", 44231, 1307}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 3106, 76, 53, "AnchorBarGrid",
 CellID->1],
Cell[3691, 99, 287, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[4003, 114, 440, 12, 85, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[4468, 130, 739, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1846006980],
Cell[5210, 156, 31, 0, 70, "SectionHeaderSpacer"],
Cell[CellGroupData[{
Cell[5266, 160, 139, 4, 70, "Input",
 CellTags->"PaVeReduce",
 CellID->1685498711],
Cell[5408, 166, 994, 25, 94, "Output",
 CellTags->"PaVeReduce",
 CellID->458544387]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6463, 198, 387, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->620988512],
Cell[CellGroupData[{
Cell[6875, 217, 194, 6, 26, "ExampleSection",
 CellID->46054929],
Cell[CellGroupData[{
Cell[7094, 227, 539, 17, 45, "Input",
 CellTags->"PaVeReduce",
 CellID->311139632],
Cell[7636, 246, 266, 10, 37, "Output",
 CellTags->"PaVeReduce",
 CellID->516283693]
}, Open  ]],
Cell[CellGroupData[{
Cell[7939, 261, 124, 4, 27, "Input",
 CellTags->"PaVeReduce",
 CellID->927282004],
Cell[8066, 267, 5286, 178, 282, "Output",
 CellTags->"PaVeReduce",
 CellID->1592936160]
}, Open  ]],
Cell[CellGroupData[{
Cell[13389, 450, 509, 16, 45, "Input",
 CellTags->"PaVeReduce",
 CellID->1031771651],
Cell[13901, 468, 634, 22, 55, "Output",
 CellTags->"PaVeReduce",
 CellID->1972744154]
}, Open  ]],
Cell[CellGroupData[{
Cell[14572, 495, 416, 13, 45, "Input",
 CellTags->"PaVeReduce",
 CellID->2052937684],
Cell[14991, 510, 902, 27, 85, "Output",
 CellTags->"PaVeReduce",
 CellID->1778677368]
}, Open  ]],
Cell[15908, 540, 227, 8, 27, "Input",
 CellTags->"PaVeReduce",
 CellID->1002068234],
Cell[16138, 550, 179, 6, 27, "Input",
 CellTags->"PaVeReduce",
 CellID->175960789],
Cell[CellGroupData[{
Cell[16342, 560, 696, 20, 45, "Input",
 CellTags->"PaVeReduce",
 CellID->1868254708],
Cell[17041, 582, 16051, 437, 845, "Output",
 CellTags->"PaVeReduce",
 CellID->775966781]
}, Open  ]],
Cell[33107, 1022, 285, 9, 27, "Input",
 CellTags->"PaVeReduce",
 CellID->1848976065],
Cell[CellGroupData[{
Cell[33417, 1035, 392, 12, 45, "Input",
 CellTags->"PaVeReduce",
 CellID->193852328],
Cell[33812, 1049, 5837, 106, 1316, "Output",
 CellTags->"PaVeReduce",
 CellID->2020509582]
}, Open  ]],
Cell[39664, 1158, 293, 9, 27, "Input",
 CellTags->"PaVeReduce",
 CellID->793776799]
}, Open  ]],
Cell[39972, 1170, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40040, 1175, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[40313, 1189, 354, 14, 56, "SeeAlso",
 CellID->939950363]
}, Open  ]],
Cell[40682, 1206, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

